home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / revistas / trashcan / trashcan01-1.dms / trashcan01-1.adf / Fuentes / FuenteComecocosAmos.lzx / comecocos.amos / comecocos.amosSourceCode < prev    next >
AMOS Source Code  |  1991-08-15  |  2KB  |  98 lines
  1. Screen Open 0,320,256,16,Lowres
  2. Curs Off : Flash Off : Hide : Paper 0 : Get Sprite Palette : Cls 
  3.  
  4. CC=8
  5. XC=9
  6. YC=13
  7.  
  8. FT=9
  9. XF=10
  10. YF=7
  11.  
  12. BOLAS=0
  13.  
  14. Dim L(19,15)
  15.  
  16. For Y=0 To 15
  17.    For X=0 To 19
  18.       Read D
  19.       L(X,Y)=D
  20.       If D
  21.          Paste Bob X*16,Y*16,D
  22.       End If 
  23.       If D=1
  24.          Inc BOLAS
  25.       End If 
  26.    Next X
  27. Next Y
  28.  
  29. Repeat 
  30.    
  31.    If Jleft(1)=-1 and L(XC-1,YC)<2
  32.       Dec XC
  33.    End If 
  34.    If Jright(1)=-1 and L(XC+1,YC)<2
  35.       Inc XC
  36.    End If 
  37.    If Jup(1)=-1 and L(XC,YC-1)<2
  38.       Dec YC
  39.    End If 
  40.    If Jdown(1)=-1 and L(XC,YC+1)<2
  41.       Inc YC
  42.    End If 
  43.    If L(XC,YC)=1
  44.       L(XC,YC)=0
  45.       Dec BOLAS
  46.       Cls 0,XC*16,YC*16 To XC*16+16,YC*16+16
  47.    End If 
  48.    
  49.    Inc RR
  50.    If RR>4
  51.       RR=0
  52.       If XC<XF and L(XF-1,YF)<2
  53.          Dec XF
  54.       End If 
  55.       If XC>XF and L(XF+1,YF)<2
  56.          Inc XF
  57.       End If 
  58.       If YC<YF and L(XF,YF-1)<2
  59.          Dec YF
  60.       End If 
  61.       If YC>YF and L(XF,YF+1)<2
  62.          Inc YF
  63.       End If 
  64.    End If 
  65.    
  66.    Bob 1,XC*16,YC*16,CC
  67.    Bob 2,XF*16,YF*16,FT
  68.    Wait Vbl 
  69. Until BOLAS<=0 or(XC=XF and YC=YF)
  70.  
  71. If BOLAS<=0
  72.    Cls : Print "�Lo conseguiste!"
  73. End If 
  74.  
  75. If XC=XF and YC=YF
  76.    Cls : Print "�Te pillaron!"
  77. End If 
  78.  
  79. Wait Key 
  80. End 
  81.  
  82. DATOSLABERINTO:
  83. Data 3,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,2
  84. Data 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7
  85. Data 7,1,3,6,2,1,3,6,6,6,6,6,6,2,1,3,6,2,1,7
  86. Data 7,1,7,0,7,1,7,0,0,0,0,0,0,7,1,7,0,7,1,7
  87. Data 7,1,5,6,4,1,5,6,6,6,6,6,6,4,1,5,6,4,1,7
  88. Data 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7
  89. Data 7,1,3,2,1,3,2,1,3,0,0,2,1,3,2,1,3,2,1,7
  90. Data 7,1,7,7,1,7,7,1,7,0,0,7,1,7,7,1,7,7,1,7
  91. Data 7,1,7,7,1,5,4,1,5,6,6,4,1,5,4,1,7,7,1,7
  92. Data 7,1,7,7,1,1,1,1,1,1,1,1,1,1,1,1,7,7,1,7
  93. Data 7,1,5,4,1,3,6,6,6,6,6,6,6,6,2,1,5,4,1,7
  94. Data 7,1,1,1,1,7,0,0,0,0,0,0,0,0,7,1,1,1,1,7
  95. Data 7,1,3,2,1,5,6,6,6,6,6,6,6,6,4,1,3,2,1,7
  96. Data 7,1,5,4,1,1,1,1,1,1,1,1,1,1,1,1,5,4,1,7
  97. Data 7,1,1,1,1,3,6,6,6,6,6,6,6,6,2,1,1,1,1,7
  98. Data 5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,4